unit uFrmDataCheckTree;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, uFrmDataVirtualTree, XPMenu, ImgList, Menus, ActnList, DB,
    codemyth.session,
    DBClient, StdCtrls, RzPanel, RzButton, ExtCtrls, ComCtrls, RzTreeVw;

type
    TFrmDataCheckTree = class( TFrmDataVirtualTree )
    public
        constructor Create( session: TAppSessionEx; const theServiceId,
            theDetailServiceId: string; const CanOpData: Boolean = true; const
            initParams: string = '' ); reintroduce;
    end;

implementation

{$R *.dfm}

{ TFrmDataCheckTree }

constructor TFrmDataCheckTree.Create( session: TAppSessionEx;
    const theServiceId, theDetailServiceId: string; const CanOpData: Boolean;
    const initParams: string );
begin
    inherited Create( TRzCheckTree, session, theServiceId, theDetailServiceId,
        CanOpData,
        initParams );
    with FTreeView as TRzCheckTree do
    begin
        HideSelection := False;
        RightClickSelect := True;
    end;

end;

end.

